home *** CD-ROM | disk | FTP | other *** search

---

/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / comm / cnet / cnet_wof.lha / wof.lha / games.lha / Game.ANS (.png)

next >

ANSI Art File  |  1997-04-17  |  105KB  |  640x864  |  4-bit (9 colors)

Labels: text | screenshot | font
OCR: Etr BANKRUPT Etr 300 750 tr 250 250 :tr 600 300 tr 400 200 ;tr 150 100 tr ' left (word(' 200 1000' , (wheel =wheal)+1) , 4)' WOF ver' 500 tr 250 400 ':tr 400 300 tr LOSE FREE itp 450 200 tr 150 100 :tr SURPRISE :tr a=random(2, 3) ; b=random(1, 24) ; t=slow/100; 11=1; 12=1; do i=1 to a;do j=1 to 24;c all time('r'); do until time('e' )>=t;end ;c=word (wheel, b) ; 1=word (locs, j) ; parse var 1 11' l'12; tr '1'Hice*2'H*' ;end j:end return TITLE: /* mci done */ime('r' ) ; do until time('e' )>=t;end; tr '1'H 2'H ' ; 1=word ( lo tr 'rse var 1 Iz5 Iz64c90- tr --- olz0' 'H*' ;end i;se ' Iz5 Iz5 Iz0 Iz64c91 Iz74cc C Iz6 Iz2 Ic1 === Iz6 Iz2 === Iz6 Iz2 === Iz6 Iz74cc T Iz6 Iz24c0###Iz6 Iz2###Iz6 Iz2###4z6 Iz2# 0ZT ## Iz64c9 14z0' tr J Iz5 Iz04cf THE Iz5 Iz0 Iz64c91 Iz74ccC Clz6 Iz24c1 === Iz6 Iz2 === Iz6 Iz2 === Iz6 Iz74ccT Tiz6 Iz24c0###Iz6 Iz2###Iz6 Iz2###4z6 z2### 4z64c9 14z0' tr Iz5 Iz0 Iz5 Iz0 Iz64c91 tr ' Iz5 Iz04cb WHEEL Iz5 Iz0 Iz64c91 Iz24c1 === 4z6 Iz74cc A Iz6 Iz24c1 === Iz6 Iz74cc T Iz6 Iz24c1 === Iz6 Iz2 === Iz6 Iz2 === Iz6 Iz74cc D Iz6 Iz2Ico###Iz64c9 14z0' tr ' Iz5 Iz0 Iz5 Iz0 Iz6lc91 Iz2lc1 === 4z6 Iz7 IccA Alz6 Iz24c1 === 4z6 Iz74ccT Tiz6 Iz24c1 === Iz6 Iz2 === 4z6 Iz2 === Iz6 Iz74ccD Diz 6 Iz24c0### Iz64c9 |Iz0' tr' Iz54cf Iz0 OF Iz5 Iz0 Iz64c90 tr ' Iz5 Iz0 "oIzo' Iz5 Izo' tr ' Iz5 Iz04cb FORTUNE Iz5 Iz0 PERS O N' tr ' Iz5 Iz0 ' left (ver,5)' Iz5 Izo' tr Iz5 IzOlce Iz5 Iz0lcd Comple tely ReWritten by Ic9Dotoranlcd!' tr Iz5 Iz0 4z5 tr Iz5 Iz0 IcfYour Hosts4c9: Ica' host s' Icf !! In1' SYNTAX : ; ERROR : ; IOERR : ; e1="In1 Error: "rc" ("errortext(rc)")" return e2=" Line: "left(sig1, 4)"File:";c="""fp", "ver"" ";e2=e2" "c;tr e1;tr e2 logentry e1; logentry e2;e=strip(translate(sourceline(sig1), "\{", "1"") ) do while e"="";e3="Source: "left(e, 37) ; tr e3; logentry e3;e=substr(e, 38) ; end bufferflush;signal QUIT3 ****************************** \ ******** Frontiers BBS (716)/823-9892 ** /

---